home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / page3 / 00134.ls < prev    next >
Encoding:
Text File  |  1995-04-05  |  573 b   |  23 lines
  1. on mouseDown
  2.   set mysprite to the clickOn
  3.   set me to the castNum of sprite mysprite
  4.   set the castNum of sprite mysprite to me + 1
  5.   puppetSound(0)
  6.   puppetSound("page number click")
  7.   updateStage()
  8.   repeat while the mouseDown
  9.   end repeat
  10.   set the castNum of sprite mysprite to me
  11.   updateStage()
  12. end
  13.  
  14. on mouseUp
  15.   global stay
  16.   set stay to 1
  17.   set the windowType of window "pagebar" to 2
  18.   set myleft to the stageLeft
  19.   set mytop to the stageBottom - 92
  20.   set the rect of window "pagebar" to rect(myleft, mytop, myleft + 640, mytop + 92)
  21.   open(window "pagebar")
  22. end
  23.